home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / mix01.clssa < prev    next >
Text File  |  1995-01-20  |  2KB  |  68 lines
  1. /***********************************************************************
  2.  GADGET: "VR-Mix" "2" AUTO TYP: "?"
  3.  
  4.  $DAT >>Mix01.clssa<<         23.09.1992 - (C) ProDAD Holger Burkarth
  5.                               20.01.1995 - (C) ProDAD Michael Christoph
  6.  
  7.  Rückwärts- und vorwätsgerichtetes  Mischverfahren.
  8. ************************************************************************/
  9.  
  10. Options Results
  11. Address clariSSA
  12.  
  13.   FailAt 99
  14.   AltFail=RESULT
  15.  
  16.   DO FOREVER
  17.     Anims=""
  18.     GetAnimInfo Source_A
  19.     IF RESULT~='' THEN Anims=Anims||" Source_A "
  20.     GetAnimInfo Source_B
  21.     IF RESULT~='' THEN Anims=Anims||" Source_B "
  22.     GetAnimInfo Source_C
  23.     IF RESULT~='' THEN Anims=Anims||" Source_C "
  24.     GetAnimInfo Source_D
  25.     IF RESULT~='' THEN Anims=Anims||" Source_D "
  26.  
  27.     IF Anims~='' THEN DO
  28.       SelectAnim Anims "TITLE 'Wählen Sie eine Animtion@für das Rückwärts- Vorwärtsmischen aus.' REQ"
  29.       IF RC~=0 THEN LEAVE
  30.       SelectAnim RESULT
  31.  
  32.       GetAnimInfo
  33.       PARSE VAR RESULT . "FRAMES" Max .
  34.       IF MAX >=2 THEN DO
  35.         GetArea
  36.         MerkeArea=RESULT
  37.         PARSE VAR RESULT "FROM" Start "TO" Ende .
  38.         AktV=Start
  39.         AktH=Ende
  40.         Anzahl=Ende-Start
  41.  
  42.         DO FOREVER
  43.           IF Anzahl <= 0  THEN LEAVE
  44.           SetArea FROM AktV TO AktV UP
  45.           Record AREA
  46.           IF rc~=0 THEN LEAVE
  47.  
  48.           SetArea FROM AktH TO AktH Up
  49.           Record AREA
  50.           IF rc~=0 THEN LEAVE
  51.  
  52.           AktV=AktV+1
  53.           AktH=AktH-1
  54.           Anzahl=Anzahl-1
  55.         END
  56.         SetArea MerkeArea
  57.  
  58.       END
  59.       ELSE Message "'Zu geringe Frameanzahl!'"
  60.     END
  61.     ELSE Message "'Keine Source-Animation vorhanden!'"
  62.  
  63.     LEAVE
  64.   END
  65.  
  66.   FailAt AltFail
  67. exit
  68.